home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 92 / 092.d81 / sch se (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  170 lines
  1. 0 dv=peek(186):ifdv<8thendv=8
  2. 1 ifa=0thena=1:load"help-se",dv,1
  3. 2 ifa=1thena=2:load"notepad",dv,1
  4. 3 poke198,0:sp$="          "
  5. 5 dim m0$(10),m1$(20),m2$(20),d$(10):fl=0:f1=0
  6. 6 fori=1to5:d$(i)="0":next
  7. 10 poke53280,0:poke53281,0:ad=36864
  8. 20 readx:fori=1tox:readm0$(i):next
  9. 21 readx:fori=1tox:readm1$(i):next
  10. 22 readx:fori=1tox:readm2$(i):next
  11. 30 print"";:gosub9500
  12. 40 sysad,"[212][160][193][160][216][160] [160][193] [195][160][195] [207] [213] [206] [212][160][193][160][206] [212]","[211]chedule [211][197]"
  13. 50 ifpeek(198)<>1thenend
  14. 55 sysad+15:getdv$:getme$:gethi$:gettx$
  15. 56 dv=asc(dv$):m=asc(me$)and15:h=asc(hi$)and15:tx=asc(tx$)and15
  16. 60 sysad+18:poke198,0:gosub9000
  17. 70 sysad+3,5+64,15,8,m+64,h,tx,m0$(1),m0$(2),m0$(3),m0$(4),m0$(5)
  18. 80 getk$:k$=str$(asc(k$)-48):k=val(k$)
  19. 85 onkgoto200,300,103,900,40
  20. 103 gosub9500:sysad+18
  21. 105 sysad+3,9+64,1,7,m,h,tx,m1$(1),m1$(2),m1$(3),m1$(4),m1$(5),m1$(6),m1$(7),m1$(8),m1$(9)
  22. 110 getk$:k$=str$(asc(k$)-48):k=val(k$)
  23. 115 ifk=9thensysad+18:poke781,21:sys59903:goto70
  24. 117 ifk=8thenh$="se.h":gosub600:goto105
  25. 120 ifk=7then5000
  26. 130 ifk=6thenn$="se.n":gosub500:goto105
  27. 135 ifk>2then150
  28. 140 gosub9100:iflen(w$)=0then105
  29. 145 d$(k)=w$
  30. 150 d$(3)=str$(val(d$(1))+val(d$(2)))
  31. 155 d$(4)=str$(int(val(d$(3))*.9235))
  32. 156 ifval(d$(4))<400thend$(4)="[211][212][207][208]":d$(5)="0"
  33. 160 ifval(d$(4))<53400thend$(5)=str$(int(val(d$(4))*.153+.5)):goto186
  34. 170 ifval(d$(4))>=125000thend$(5)="10247":goto186
  35. 180 d=val(d$(4))-53400:d=d*.029:d=d+8170.2:d$(5)=str$(int(d+.5))
  36. 186 gosub9500
  37. 190 goto105
  38. 195 :
  39. 200 gosub9300
  40. 210 ifval(w$)=0thenclose2:close15:gosub9000:goto70
  41. 220 open15,8,15,"io":w$="se."+w$
  42. 225 open2,8,2,"0:"+w$+",s,r"
  43. 230 input#15,e,e$,e1,e2
  44. 234 poke214,21:print:print"                                    "
  45. 235 poke214,21:print:print"[196]isk [211]tatus:"e;e$:fori=1to2000:next
  46. 236 poke214,21:print:print"                                    "
  47. 240 ifethenclose2:close15:gosub9000:goto70
  48. 250 fori=1to5:input#2,d$(i):next
  49. 270 close2:close15
  50. 275 gosub9000:sysad+18:goto186
  51. 280 :
  52. 300 gosub9300:ifval(w$)=0then375
  53. 310 w$="se."+w$
  54. 320 open15,8,15,"s0:"+w$:close15
  55. 330 open15,8,15,"io"
  56. 335 open2,8,2,"0:"+w$+",s,w"
  57. 340 input#15,e,e$,e1,e2
  58. 344 poke214,21:print:print"                                    "
  59. 345 poke214,21:print:print"[196]isk [211]tatus: "e;e$:fori=1to2000:next
  60. 346 poke214,21:print:print"                                    "
  61. 350 ifethenclose2:close15:print"[145][198]ile [206]ot [211]aved":fori=1to2000:next:goto375
  62. 360 fori=1to5:print#2,d$(i):next
  63. 370 close2:close15
  64. 375 gosub9000:goto70
  65. 390 :
  66. 500 sysad+6,2:sysad+9,1
  67. 505 sys50176,1,3,38,20,tx,0
  68. 510 ky=peek(197)
  69. 515 ifky=3thensys51712,1,3,38,20,7:goto505
  70. 520 ifky=6thenopen15,dv,15,"s0:"+n$:close15:sysad+12,n$,1:goto505
  71. 530 ifky=5then poke147,0:sys57812n$,dv,1:sys62631:sysad+9,1:goto505
  72. 550 sysad+6,1:sysad+9,2:return
  73. 560 :
  74. 600 sysad+6,2:poke646,tx:print"[147]"tab(14)"*** [200][197][204][208] ***"
  75. 601 poke646,m
  76. 602 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  77. 603 fori=1to21:print"[221]                                      [221]";:next
  78. 604 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";:poke646,tx
  79. 605 print"              [208]ress [210][197][212][213][210][206]";:poke52346,tx
  80. 606 open2,dv,2,h$+",p,r":sys51968
  81. 610 poke198,0
  82. 615 getk$:ifk$<>chr$(13)then615
  83. 620 close2:sysad+9,2:return
  84. 625 :
  85. 900 gosub9400:ifw$<>"y"thengosub9000:goto70
  86. 905 poke214,21:print:print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  87. 906 print"[221] [208]rinting...                          [221]";
  88. 910 open4,4,7
  89. 915 print#4,sp$"[211][195][200][197][196][213][204][197] [211][197]"
  90. 920 print#4,sp$"-------------------------------------"
  91. 925 fori=1to5:print#4,sp$;m1$(i):next
  92. 930 print#4:close4:gosub9000:goto70
  93. 935 :
  94. 5000 sysad+18:poke781,21:sys59903:poke646,m
  95. 5001 print""tab(9)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  96. 5002 printtab(9)"[221]                  [221]"
  97. 5003 printtab(9)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  98. 5004 ac=0:ac$="0"
  99. 5005 ac$=right$(sp$+ac$,10):poke646,tx
  100. 5006 print""tab(17)ac$
  101. 5010 sysad+3,6+64,10,9,m+64,h,tx,m2$(1),m2$(2),m2$(3),m2$(4),m2$(5),m2$(6)
  102. 5020 getk$:k$=str$(asc(k$)-48):k=val(k$)
  103. 5025 ifk=6thensysad+18:goto103
  104. 5030 ifk=1thenac=0:goto5065
  105. 5035 gosub9100
  106. 5040 w=val(w$):ifw=0then5005
  107. 5045 ifk=2thenac=ac+w
  108. 5050 ifk=3thenac=ac-w
  109. 5055 ifk=4thenac=ac*w
  110. 5060 ifk=5thenac=ac/w
  111. 5065 ac$=str$(ac):goto5005
  112. 5070 :
  113. 9000 poke214,21:print:print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  114. 9005 print"[221]  [213]se [195]ursor [203]eys/[210][197][212][213][210][206] to select.   [221]";
  115. 9010 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";:poke2023,125:poke56295,1
  116. 9015 return
  117. 9100 gosub9600:poke646,tx
  118. 9105 poke214,22:print:print"[197]nter: ";
  119. 9110 sys49152+3,tx,tx,9
  120. 9115 gosub9000:return
  121. 9120 :
  122. 9300 gosub9600:poke646,tx
  123. 9305 poke214,22:print:print"[197]nter [217]ear: ";
  124. 9310 sys49152+3,tx,tx,4
  125. 9315 return
  126. 9320 :
  127. 9400 gosub9600:poke646,tx
  128. 9405 poke214,22:print:print"[208]rinter [210]eady? ";
  129. 9410 sys49152,tx,tx,1
  130. 9415 return
  131. 9420 :
  132. 9500 fori=1to5
  133. 9505 m1$(i)=left$(m1$(i),27):d$(i)=right$(sp$+d$(i),10)
  134. 9510 m1$(i)=m1$(i)+d$(i):next
  135. 9515 return
  136. 9520 :
  137. 9600 fori=217to242:pokei,peek(i)or128:next
  138. 9602 poke214,22:print:print"                                   "
  139. 9605 return
  140. 9610 :
  141. 10000 open15,8,15,"s0:sch se":close15:save"0:sch se",8:end
  142. 10999 :
  143. 11000 rem menu0
  144. 11001 data 5,"[204]oad [198]ile "
  145. 11002 data "[211]ave [198]ile "
  146. 11003 data "[197]dit [198]ile "
  147. 11004 data "[208]rint [198]ile"
  148. 11005 data "[205]ain [205]enu "
  149. 11006 :
  150. 11099 rem menu1
  151. 11100 data 9
  152. 11101 data "1. [206]et [198]arm [208]rofit/[204]oss             0"
  153. 11102 data "2. [206]et [208]rofit/[204]oss ([211]ch. [195])         0"
  154. 11103 data "3. [193]dd lines 1 and 2                0"
  155. 11104 data "4. [204]ine 3 x .9235                   0"
  156. 11105 data "5. [211]elf-employment tax              0"
  157. 11111 data "[206]otepad                              "
  158. 11112 data "[195]alculator                           "
  159. 11113 data "[200]elp                                 "
  160. 11114 data "[205]ain [205]enu                            "
  161. 11115 :
  162. 11199 rem menu2
  163. 11200 data 6
  164. 11201 data "[218]ero [193]cc.         "
  165. 11202 data "[193]dd to [193]cc.       "
  166. 11203 data "[211]ubtract from [193]cc."
  167. 11204 data "[205]ultiply [193]cc.     "
  168. 11205 data "[196]ivide [193]cc.       "
  169. 11206 data "[197]xit              "
  170.